home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
pbc32.zip
/
PBC$BAS.ZIP
/
TOPOSTAL.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-04-10
|
3KB
|
72 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone (C) Copyright 1996 Charon Software, All Rights Reserved |
' | |
' +----------------------------------------------------------------------+
FUNCTION ToPostal$ (PlaceName$)
SELECT CASE UCASE$(PlaceName$)
CASE "ALABAMA": t% = &H4C41
CASE "ALASKA": t% = &H4B41
CASE "AMERICAN SAMOA": t% = &H5341
CASE "ARIZONA": t% = &H5A41
CASE "ARKANSAS": t% = &H5241
CASE "CALIFORNIA": t% = &H4143
CASE "COLORADO": t% = &H4F43
CASE "CONNECTICUT": t% = &H5443
CASE "DELAWARE": t% = &H4544
CASE "DISTRICT OF COLUMBIA": t% = &H4344
CASE "FEDERATED STATES OF MICRONESIA": t% = &H4D46
CASE "FLORIDA": t% = &H4C46
CASE "GEORGIA": t% = &H4147
CASE "GUAM": t% = &H5547
CASE "HAWAII": t% = &H4948
CASE "IDAHO": t% = &H4449
CASE "ILLINOIS": t% = &H4C49
CASE "INDIANA": t% = &H4E49
CASE "IOWA": t% = &H4149
CASE "KANSAS": t% = &H534B
CASE "KENTUCKY": t% = &H594B
CASE "LOUISIANA": t% = &H414C
CASE "MAINE": t% = &H454D
CASE "MARSHALL ISLANDS": t% = &H484D
CASE "MARYLAND": t% = &H444D
CASE "MASSACHUSETTS": t% = &H414D
CASE "MICHIGAN": t% = &H494D
CASE "MINNESOTA": t% = &H4E4D
CASE "MISSOURI": t% = &H4F4D
CASE "MISSISSIPPI": t% = &H534D
CASE "MONTANA": t% = &H544D
CASE "NEBRASKA": t% = &H454E
CASE "NEVADA": t% = &H564E
CASE "NEW HAMPSHIRE": t% = &H484E
CASE "NEW JERSEY": t% = &H4A4E
CASE "NEW MEXICO": t% = &H4D4E
CASE "NEW YORK": t% = &H594E
CASE "NORTH CAROLINA": t% = &H434E
CASE "NORTH DAKOTA": t% = &H444E
CASE "NORTHERN MARIANA ISLANDS": t% = &H504D
CASE "OHIO": t% = &H484F
CASE "OKLAHOMA": t% = &H4B4F
CASE "OREGON": t% = &H524F
CASE "PENNSYLVANIA": t% = &H4150
CASE "PUERTO RICO": t% = &H5250
CASE "RHODE ISLAND": t% = &H4952
CASE "SOUTH CAROLINA": t% = &H4353
CASE "SOUTH DAKOTA": t% = &H4453
CASE "TENNESSEE": t% = &H4E54
CASE "TEXAS": t% = &H5854
CASE "UTAH": t% = &H5455
CASE "VERMONT": t% = &H5456
CASE "VIRGINIA": t% = &H4156
CASE "VIRGIN ISLANDS": t% = &H4956
CASE "WASHINGTON": t% = &H4157
CASE "WEST VIRGINIA": t% = &H5657
CASE "WISCONSIN": t% = &H4957
CASE "WYOMING": t% = &H5957
CASE ELSE
END SELECT
IF t% THEN st$ = MKI$(t%)
ToPostal$ = st$
END FUNCTION